home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / allclear / demo / disk1 / examples / computer.cmp / BRESNHAM.ACL next >
Encoding:
Text File  |  1993-10-06  |  395 b   |  19 lines
  1. BRESENHAM ALGORITHM
  2.  
  3. [dx := ABS (x2 - x1) | dy := ABS (y2 - y1)].
  4. d := 2 * dy - dx | incr1 := 2 * dy | incr2 := 2 * (dy - dx).
  5. x1 > x2 ?
  6.     (true)  x := x2 | y := y2 | xend := x1.
  7.     (false) x := x1 | y := y1 | xend := x2.
  8. ?end
  9. write pixel (x,y).
  10. x < xend ;
  11.     x := x + 1.
  12.     d < 0 ?
  13.         (true)  d := d + incr1.
  14.         (false) y := y +1 | d := d + incr2.
  15.     ?end
  16.     write pixel (x,y).
  17. ;end
  18. STOP.
  19.